;2008-05-20
;Av Benjamin Ingberg och Patrik Johansson
;
;Skickar make-schemerman-gui dess grundvärden för att rita ut gui't

(load "make-schemerman-gui.scm")

(define *gui*
  (make-schemerman-gui 640 480))

(define *frame*
  (get-frame *gui*))

(define *canvas*
  (get-canvas *gui*))

(define *buffer*
  (get-buffer *gui*))

(define *dc*
  (get-dc *gui*))